home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / CaseStudies / ch11.earshotSFX / TinySource / Fire.dir / 00002.ls < prev    next >
Encoding:
Text File  |  1996-03-01  |  465 b   |  17 lines
  1. on exitFrame
  2.   global gMenuMovie, gBaseUrl, gLeftGoToList, gRightGoToList
  3.   if getOne(gLeftGoToList, line 1 of the labelList) then
  4.     set returnAnchor to "#LeftChoice"
  5.   else
  6.     if getOne(gRightGoToList, line 1 of the labelList) then
  7.       set returnAnchor to "#RightChoice"
  8.     else
  9.       set returnAnchor to EMPTY
  10.     end if
  11.   end if
  12.   if not gMenuMovie then
  13.     set gMenuMovie to "earMenu.dcr"
  14.   end if
  15.   goToNetMovie(gBaseUrl & gMenuMovie & returnAnchor)
  16. end
  17.